home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs06.d81
/
micro.arc
/
MFDELETEDATAFILE
(
.txt
)
next >
Wrap
Commodore BASIC
|
2009-10-10
|
1KB
|
42 lines
100 REM SAVE "0:[205][198][196][197][204][197][212][197][196][193][212][193][198][201][204][197]",8
150 REM DELETES A "[205][201][195][210][207][198][201][204][197]" SEQUENTIAL DATA FILE FROM THE DISK
155 POKE 53280,14:POKE 53281,6:POKE 646,14:PRINT CHR$(14)
160 PRINT "[147][150][208]LEASE READ THE DOCUMENTATION FILE ABOUT";
170 PRINT "DELETING UNWANTED DATA FILES FROM DISK ";
180 PRINT "BEFORE ATTEMPTING TO RUN THIS PROGRAM. ";
190 PRINT "[194]E VERY CAREFUL OF THE FILE NAME THAT ";
195 PRINT "YOU ENTER. [217]OU MIGHT ACCIDENTALLY WIPE ";
196 PRINT "OUT THE WRONG FILE. ";
200 PRINT "[196]O YOU WISH TO DELETE A DATA FILE NOW?"
210 PRINT "[210]EPLY [217][197][211] OR [206][207][159]"
240 A$=""
250 INPUT A$
260 IF A$="[217][197][211]" THEN 500
270 IF A$="[206][207]" THEN 990
290 GOTO 250
500 PRINT "[197]NTER THE FILE NAME[159]"
510 N$=""
520 INPUT N$
530 PRINT "[158][217]OU WILL BE DELETING:[150]";N$
540 PRINT "[196]O YOU WISH TO DELETE THIS FILE?"
545 PRINT "[210]EPLY [217][197][211] OR [206][207][159]"
550 A$=""
560 INPUT A$
570 IF A$="[217][197][211]" THEN 600
580 IF A$="[206][207]" THEN 990
590 GOTO 560
600 REM DELETE DISK FILE NAME
610 ND$=CHR$(4)+N$
630 OPEN 15,8,15
640 PRINT#15,"S0:"+ND$
641 GOSUB 1000
645 CLOSE 15
990 POKE 646,14
999 END
1000 REM DISK ERROR MESSAGES
1020 INPUT#15,ER$,EN$
1030 IF VAL(ER$)>0 THEN 1050
1040 GOTO 1099
1050 PRINT "[156][197]RROR # "+ER$+" - - - "+EN$
1099 RETURN